home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)m6.d64 / dos commands.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  234 lines
  1. 100 REM ****************************
  2. 110 REM SAVE "@0:DOS COMMANDS.C64",8
  3. 120 REM ****************************
  4. 130 REM DICK SCHMELZER
  5. 140 REM P.O. BOX 9836
  6. 150 REM MADISON, WISCONSIN 53715
  7. 160 REM ****************************
  8. 170 POKE53281,1
  9. 180 CLR
  10. 190 PRINT"[147][144]        READING DISK DIRECTORY"
  11. 200 DIMP$(100)
  12. 210 AH=0
  13. 220 REM
  14. 230 REM
  15. 240 OPEN1,8,0,"$"
  16. 250 REM
  17. 260 GET#1,B$:IFST<>0THEN340
  18. 270 IFB$<>CHR$(34)THEN260
  19. 280 P$=""
  20. 290 GET#1,B$:IFB$<>CHR$(34)THENP$=P$+B$:GOTO290
  21. 300 GET#1,B$:IFB$=CHR$(32)THEN300
  22. 310 P$(X)=P$:PRINT"                  ";X;"[145][145][145][145]"
  23. 320 GET#1,B$:IFB$<>""THEN320
  24. 330 IFST=0THENX=X+1:GOTO250
  25. 340 CLOSE1
  26. 350 REM  DISPLAY MENU
  27. 360 N=10
  28. 370 PRINT"[147][144]64 DOS COMMANDER"
  29. 380 PRINT"FOR ";CHR$(34)+P$(0);CHR$(34)
  30. 390 PRINT"";TAB(22)"[151]DISK LOADER[157][157][157][157][157][157][157][157][157]SECTION[157][157][157][157][157][157][157][157][157][210][210][210][210][210][210][210][210][210][210][210]"
  31. 400 IFN<10THENN=10
  32. 410 IFN>100THENN=100
  33. 420 PRINT"":FORJ=(N-9)TON:PRINTJ;"- ";P$(J):NEXTJ
  34. 430 PRINT:PRINT"PRESS[157][157][157][157][157]N[144] FOR NEXT SCREEN"
  35. 440 PRINT"P[144] FOR PREVIOUS SCREEN"
  36. 450 PRINT"X[144] TO EXIT TO BASIC"
  37. 460 IFAH=1THEN830
  38. 470 IFAH=2THEN1040
  39. 480 PRINT"L[144] TO LOAD ONLY"
  40. 490 PRINT"R[144] TO LOAD AND RUN"
  41. 500 PRINT"D[144] FOR DISK FIXER"
  42. 510 PRINT"_[144] FOR PRINTER COMMANDS
  43. 520 Z$[178]"":[161]Z$:[139]Z$[178]""[167]520
  44. 530 [139]Z$[178]"N"[167]N[178]N[170]10:[137]370
  45. 540 [139]Z$[178]"P"[167]N[178]N[171]10:[137]370
  46. 550 [139]Z$[178]"X"[167][141]1550:[141]730:AH[178]0:[128]
  47. 560 [139]Z$[178]"L"[167][141]610:[137]710
  48. 570 [139]Z$[178]"R"[167][141]610:[137]680
  49. 580 [139]Z$[178]"D"[167]AH[178]1:[137]370
  50. 590 [139]Z$[178]"_"[167]AH[178]2:[137]370
  51. 600 [137]520
  52. 610 [143] SELECT AND PRINT LOAD
  53. 620 [153]"PROGRAM #";
  54. 630 [133]S
  55. 640 [153]"LOAD":[153][163]12)"DOS COMMANDERWAIT"
  56. 650 [139]S[179]1[176]S[177]X[167]620
  57. 660 [153]"LOAD"[170][199](34)[170]P$(S)[170][199](34)[170]",8ONONON"
  58. 670 [142]
  59. 680 [143] LOAD AND RUN
  60. 690 [151]631,13:[151]632,82:[151]633,85:[151]634,78:[151]635,13:[151]198,5
  61. 700 [128]
  62. 710 [143] LOAD ONLY
  63. 720 [151]631,13:[151]198,1:[128]
  64. 730 [153]"":[129]X[178]10[164]30:[153][163]X)"STOP*";:[130]
  65. 740 [153]"":[129]Y[178]1[164]14:[153][163]10)"*   ":[130]
  66. 750 [153]"":[129]X[178]10[164]30:[153][163]X)"*";:[130]
  67. 760 [153]"":[129]Y[178]1[164]14:[153][163]30)"*":[130]
  68. 770 [153]"";[163]12)" COMMANDER STILL"
  69. 780 [153][163]12)"PRESENT IN MEMORY"
  70. 790 [153][163]12)"STOPTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  71. 800 [153][163]12)"TYPE:"
  72. 810 [153][163]12)"STOP'NEW' - TO ERASE":[153][163]23)"OR"
  73. 820 [153][163]12)"STOP'RUN' - TO REPEAT":[142]
  74. 830 [143] THIS AREA CONTAINS DISK COMMANDS
  75. 840 [153]"";[163]22)"STOPDISK FIXER CMDCMDCMDCMDCMDCMDCMDCMDCMDSECTION CMDCMDCMDCMDCMDCMDCMDCMDCMDCMD(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  76. 850 [153]"1STOP TO FORMAT NEW DISK "
  77. 860 [153]"2STOP TO VALIDATE OR CONDENSE DISK "
  78. 870 [153]"3STOP TO RENAME A FILE ON DISK "
  79. 880 [153]"4STOP TO SCRATCH A FILE FROM DISK "
  80. 890 [153]"RSTOP RETURN TO LOAD SECTION"
  81. 900 Z$[178]"":[161]Z$:[139]Z$[178]""[167]900
  82. 910 [139]Z$[178]"N"[167]N[178]N[170]10:[137]370
  83. 920 [139]Z$[178]"P"[167]N[178]N[171]10:[137]370
  84. 930 [139]Z$[178]"X"[167][141]1550:[141]730:AH[178]0:[128]
  85. 940 [139]Z$[178]"1"[167]1580
  86. 950 [139]Z$[178]"2"[167][137]1800
  87. 960 [139]Z$[178]"3"[167][141]1000:[137]1960
  88. 970 [139]Z$[178]"4"[167][141]1000:[137]2190
  89. 980 [139]Z$[178]"R"[167]AH[178]0:[137]350
  90. 990 [137]900
  91. 1000 [153]"PROGRAM #";
  92. 1010 [133]S:
  93. 1020 [139]S[179]1[176]S[177]X[167]1000
  94. 1030 [142]
  95. 1040 [143]   THIS AREA HAS PRINTER COMMANDS
  96. 1050 [153]"";[163]22)"STOP  PRINTER  CMDCMDCMDCMDCMDCMDCMDCMDCMDSECTION CMDCMDCMDCMDCMDCMDCMDCMDCMDCMD(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  97. 1060 [153]"1STOP TO LIST THIS DIRECTORY"
  98. 1070 [153]"2STOP TO LOAD AND LIST A PROGRAM"
  99. 1080 [153]"3STOP TO LOAD AND LIST ANOTHER DIRECTORY"
  100. 1090 [153]"DSTOP RETURN TO DISK FIXER SECTION"
  101. 1100 [153]"RSTOP RETURN TO LOAD SECTION"
  102. 1110 Z$[178]"":[161]Z$:[139]Z$[178]""[167]1110
  103. 1120 [139]Z$[178]"N"[167]N[178]N[170]10:[137]370
  104. 1130 [139]Z$[178]"P"[167]N[178]N[171]10:[137]370
  105. 1140 [139]Z$[178]"X"[167][141]1550:[141]730:AH[178]0:[128]
  106. 1150 [139]Z$[178]"1"[167][141]1210:[137]370
  107. 1160 [139]Z$[178]"2"[167][141]1000:[137]1290
  108. 1170 [139]Z$[178]"3"[167]:[137]1380
  109. 1180 [139]Z$[178]"D"[167]AH[178]1:[137]370
  110. 1190 [139]Z$[178]"R"[167]AH[178]0:[137]350
  111. 1200 [137]1110
  112. 1210 [143] LIST DIRECTORY
  113. 1220 [160]4:[159]4,4,2:[157]4
  114. 1230 [129]I[178]0[164]X
  115. 1240 [152]4,P$(I)
  116. 1250 [130]
  117. 1260 [152]4:[160]4
  118. 1270 [153]"LOAD DONE":[129]I[178]1[164]1000:[130]
  119. 1280 [142]
  120. 1290 [143] LOAD AND LIST A PROGRAM
  121. 1300 [153]"LOAD LOAD "[170][199](34)[170]P$(S)[170][199](34)[170]",8"
  122. 1310 [153]"        ";P$(S);"STOP"
  123. 1320 [153]" CLOSE4:OPEN4,4,2:CMD4:LIST"
  124. 1330 [153]" PRINT#4:CLOSE4"
  125. 1340 [153]" LOAD"[170][199](34)[170]"COMMANDER-3"[170][199](34)[170]",8ONONONONONONONONONONONON"
  126. 1350 [151]631,13:[151]632,13:[151]633,13:[151]634,13:[151]635,82:[151]636,85
  127. 1360 [151]637,78:[151]638,13:[151]198,8
  128. 1370 [128]
  129. 1380 [143] * LOAD AND LIST DIRECTORY
  130. 1390 [143] * FROM ANOTHER DISK
  131. 1400 [153]"LOAD PLACE DISK TO BE LISTED IN DRIVE..."
  132. 1410 [153]" THEN PRESS RETURNWAIT"
  133. 1420 R$[178]"":[161]R$:[139]R$[178]""[167]1420
  134. 1430 [139]R$[178][199](13)[167]1450
  135. 1440 [137]1420
  136. 1450 [153]"LOAD"
  137. 1460 [153]" LOAD"[170][199](34)[170]"$"[170][199](34)[170]",8"
  138. 1470 [153]" OPEN4,4,2:CMD4:LIST"
  139. 1480 [153]" PRINT#4:CLOSE4"
  140. 1490 [153]" LOAD"[170][199](34)[170]"COMMANDER-3"[170][199](34)[170]",8"
  141. 1500 [153]" INSERT COMMANDER DISK BACK IN DRIVE.."
  142. 1510 [153]" PRESS RETURNWAIT TO RELOAD COMMANDER":[153]" AFTER PRINTOUT IS DONE."
  143. 1520 [153]"ONONONONONONONONONONONONONONONONONON"
  144. 1530 [151]631,13:[151]632,13:[151]633,13:[151]198,4
  145. 1540 [128]
  146. 1550 [143] CLEAR SCREEN - LEAVE TITLE
  147. 1560 [153]"":[129]WIPE[178]1[164]21:[153]"                                      ":[130]
  148. 1570 [142]
  149. 1580 [141]2400: [143] FORMAT NEW DISK
  150. 1590 [153]"NAME OF DISK - (16 CHARACTER LIMIT)STOP":[133]NA$:[139]NA$[178]"^"[167]350
  151. 1600 [153]"DISK ID # - (CAN BE ANY 2 CHARACTERS)STOP":[133]ID$:[139]ID$[178]"^"[167]350
  152. 1610 [153]"IS THE ABOVE INFORMATION CORRECT? (Y/N)"
  153. 1620 [161]AN$:[139]AN$[178]""[167]1620
  154. 1630 [139]AN$[178]"^"[167]350
  155. 1640 [139]AN$[178]"Y"[167]1670
  156. 1650 [139]AN$[178]"N"[167]1580
  157. 1660 [137]1620
  158. 1670 [153]"NEW DISK TO BE LABELED -"
  159. 1680 [153]"";[199](34)[170]NA$[170]"    ,"[170]ID$[170][199](34)
  160. 1690 [153]"PLACE A NEW DISK IN DRIVE"
  161. 1700 [153]"THEN PRESS 'RETURN'WAITSTOP"
  162. 1710 [161]R$:[139]R$[178]""[167]1710
  163. 1720 [139]R$[178]"^"[167]350
  164. 1730 [139]R$[178][199](13)[167]1750
  165. 1740 [137]1700
  166. 1750 [153]"LOADFORMATING NEW DISK NOW"
  167. 1760 [159]15,8,15:[152]15,"N0:";NA$;","ID$
  168. 1770 [160]15
  169. 1780 [129]I[178]1[164]1500:[130]
  170. 1790 [153]"DONE- RETURNING TO MAIN PROGRAM":[129]I[178]1[164]1500:[130]:[137]350
  171. 1800 [141]2400:[143] VALIDATE SECTION
  172. 1810 [153]"THE VALIDATE COMMAND REORGANIZES THE"
  173. 1820 [153]"DISK, CLOSING ANY SMALL GAPS, AND"
  174. 1830 [153]"MAKES THEM AVAILABLE TO THE DRIVE."
  175. 1840 [153]" ** CAUTION ** WAIT ANY OPEN FILES"
  176. 1850 [153]"                MAY BE ELIMINATED."
  177. 1860 [153]"PLACE DISK TO BE VALIDATED IN DRIVE"
  178. 1870 [153]"THEN PRESS 'RETURN'WAITSTOP"
  179. 1880 [161]R$:[139]R$[178]""[167]1880
  180. 1890 [139]R$[178]"^"[167]350
  181. 1900 [139]R$[178][199](13)[167]1920
  182. 1910 [137]1880
  183. 1920 [153]"LOADVALIDATING DISK NOW"
  184. 1930 [159]15,8,15:[152]15,"VALIDATE":[160]15
  185. 1940 [129]I[178]1[164]1500:[130]
  186. 1950 [153]"DONE- RETURNING TO MAIN PROGRAM":[129]I[178]1[164]1500:[130]:[137]350
  187. 1960 [141]2400: [143] RENAME FILE ON DISK
  188. 1970 [153]"THIS COMMAND REPLACES CURRENT FILE NAME"
  189. 1980 [153]"WITH A NEW NAME."
  190. 1990 [153]"THE CURRENT FILE IS NAMED - ":[153][199](34)[170]P$(S)[170][199](34)
  191. 2000 [153]"CHANGE NAME TO- (16 CHARACTER LIMIT)STOP":[133]NN$:[139]NN$[178]"^"[167]350
  192. 2010 [153]"IS THE ABOVE INFORMATION CORRECT? (Y/N)"
  193. 2020 [161]AN$:[139]AN$[178]""[167]2020
  194. 2030 [139]AN$[178]"^"[167]350
  195. 2040 [139]AN$[178]"Y"[167]2070
  196. 2050 [139]AN$[178]"N"[167]1960
  197. 2060 [137]2020
  198. 2070 [153]"NEW FILE TO BE NAMED-"
  199. 2080 [153]"";[199](34)[170]NN$[170][199](34)
  200. 2090 [153]"PRESS 'RETURN'WAITSTOP TO RENAME FILE"
  201. 2100 [161]R$:[139]R$[178]""[167]2100
  202. 2110 [139]R$[178]"^"[167]350
  203. 2120 [139]R$[178][199](13)[167]2140
  204. 2130 [137]2100
  205. 2140 [153]"LOADRENAMING FILE NOW"
  206. 2150 [159]15,8,15:[152]15,"R0:";NN$;"=";P$(S)
  207. 2160 [160]15:P$(S)[178]NN$
  208. 2170 [129]I[178]1[164]1500:[130]
  209. 2180 [153]"DONE- RETURNING TO MAIN PROGRAM":[129]I[178]1[164]1500:[130]:[137]350
  210. 2190 [141]2400: [143] SCRATCH FILE ON DISK
  211. 2200 [153]"THIS COMMAND SCRATCHES A CURRENT FILE."
  212. 2210 [153]"*NOTE* THE FILE IS ELIMINATED!!WAIT"
  213. 2220 [153]"THE FILE TO BE SCRATCHED IS- ":[153][199](34)[170]P$(S)[170][199](34)
  214. 2230 [153]"DO YOU WANT IT ERASED!(Y/N)"
  215. 2240 [161]AN$:[139]AN$[178]""[167]2240
  216. 2250 [139]AN$[178]"^"[167]350
  217. 2260 [139]AN$[178]"Y"[167]2290
  218. 2270 [139]AN$[178]"N"[167]350
  219. 2280 [137]2240
  220. 2290 [153]"PRESS 'RETURN'WAITSTOP TO ERASE FILE"
  221. 2300 [161]R$:[139]R$[178]""[167]2300
  222. 2310 [139]R$[178]"^"[167]350
  223. 2320 [139]R$[178][199](13)[167]2340
  224. 2330 [137]2100
  225. 2340 [153]"LOADERASING FILE NOW"
  226. 2350 [159]15,8,15:[152]15,"S0:";P$(S)
  227. 2360 [160]15:[129]I[178]1[164]1500:[130]
  228. 2370 P$(S)[178]"STOPSCRATCHED       "
  229. 2380 [160]15:[129]I[178]1[164]1500:[130]
  230. 2390 [153]"DONE- RETURNING TO MAIN PROGRAM":[129]I[178]1[164]1500:[130]:[137]350
  231. 2400 [153]"LOAD":[153][163]12)"DOS COMMANDERWAIT"
  232. 2410 [153]"PRINT#     PRESS '^' TO EXIT AT ANY PROMPTSTOP"
  233. 2420 [142]
  234.